! 0d 1d

    else if (b_nd == 1) then

! 0d 2d
